home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / general / fractal / kaos.lha / tserlib / tser_copy.c < prev    next >
Encoding:
C/C++ Source or Header  |  1989-12-19  |  773 b   |  36 lines
  1. /*
  2. ### Copy and record time series from orbit data ###
  3.  
  4. Variables:
  5.     tser_len: length of time series
  6.     n: variable dimension
  7.     tser_algorithm_option: switch for collapsing algorithm
  8. Implicit Output:
  9.     tser[]: time series in double precision (implicit)
  10.  
  11. Note: Time series is recorded in analog.
  12. */
  13.  
  14. tser_copy()
  15. {
  16.     int i,j,n;
  17.     double *xt,*xt2,to_1d_tser();
  18.     extern int var_dim,tser_len,tser_algorithm_option;
  19.     extern double *tser,**data1_x;
  20.  
  21.     tser_set_len();
  22.     tser_malloc();
  23.  
  24.     n = var_dim;
  25.     xt = (double *) dvector(0,n-1);
  26.     xt2 = (double *) dvector(0,n-1);
  27.     for(i=0;i<tser_len;i++){
  28.         for(j=0;j<n;j++)
  29.             xt[j] = data1_x[j][i];
  30.         make_periodic(xt2,xt,n);    
  31.         tser[i] = to_1d_tser(xt2,n,tser_algorithm_option);
  32.     }
  33.     (void) free_dvector(xt,0,n-1);
  34.     (void) free_dvector(xt2,0,n-1);
  35. }
  36.